home *** CD-ROM | disk | FTP | other *** search
/ Totally AMOS / Totally AMOS - Issue 1 (1991-11)(Tucker, Len - Tucker, Anne).adf / source_progs / screenwipes_2.amos / screenwipes_2.amosSourceCode < prev   
AMOS Source Code  |  1991-10-04  |  2KB  |  70 lines
  1. Curs Off : Flash Off : Cls 0
  2. '************to view all the screen wipes just run this
  3. '*********yet another fine example of peter hickman and his code!
  4. '*********press keys 1-5 to view procedures
  5. REDO:
  6. 'get screen from bank 14 
  7. Unpack 14 To 1
  8. 'put screen 0 in front again 
  9. Screen To Front 0
  10. 'point to screen 0 
  11. Screen 0
  12. 'put the new palette into screen 0 
  13. Get Palette(1)
  14. 'call screen proc  
  15. Repeat 
  16. K$=Inkey$
  17. If K$="1" : APEAR_6[1,0] : DNE=True : End If 
  18. If K$="2" : SPLERGE_DOWN[3,1,0] : DNE=True : End If 
  19. If K$="3" : SPLERGE_RIGHT[3,1,0] : DNE=True : End If 
  20. If K$="4" : SPLERGE_LEFT[3,1,0] : DNE=True : End If 
  21. If K$="5" : SPLERGE_UP[3,1,0] : DNE=True : End If 
  22. Until DNE
  23. Wait 30
  24. Screen 0
  25. Cls 0
  26. Goto REDO
  27. Procedure APEAR_6[SOURCE,DEST]
  28. Shared X1,X2,Y1,Y2
  29.    Screen To Front DEST
  30.    Screen DEST
  31.    Get Palette SOURCE
  32. X1=159 : Y1=127
  33. X2=161 : Y2=129
  34. Repeat 
  35. Screen Copy SOURCE,X1,Y1,X2,Y2 To DEST,X1,Y1
  36. If X1>0 : Dec X1 : End If 
  37. If Y1>0 : Dec Y1 : End If 
  38. If X2<320 : Inc X2 : End If 
  39. If Y2<256 : Inc Y2 : End If 
  40. Until X2=320 and Y2=256
  41.    Screen SOURCE
  42. End Proc
  43. Procedure SPLERGE_DOWN[SPEED,SOURCE,DEST]
  44.    For LOP=200-SPEED To 0 Step -SPEED
  45.       For LOP1=0 To LOP Step SPEED
  46.          Screen Copy SOURCE,0,LOP,320,LOP+SPEED To DEST,0,LOP1
  47.       Next LOP1
  48.    Next LOP
  49. End Proc
  50. Procedure SPLERGE_RIGHT[SPEED,SOURCE,DEST]
  51.    For LOP=320-SPEED To 0 Step -SPEED
  52.       For LOP1=0 To LOP Step SPEED
  53.          Screen Copy SOURCE,LOP,0,LOP+SPEED,200 To DEST,LOP1,0
  54.       Next LOP1
  55.    Next LOP
  56. End Proc
  57. Procedure SPLERGE_LEFT[SPEED,SOURCE,DEST]
  58.    For LOP=0 To(320-SPEED) Step SPEED
  59.       For LOP1=320 To LOP Step -SPEED
  60.          Screen Copy SOURCE,LOP,0,LOP+SPEED,200 To DEST,LOP1,0
  61.       Next LOP1
  62.    Next LOP
  63. End Proc
  64. Procedure SPLERGE_UP[SPEED,SOURCE,DEST]
  65.    For LOP=0 To(200-SPEED) Step SPEED
  66.       For LOP1=200 To LOP Step -SPEED
  67.          Screen Copy SOURCE,0,LOP,320,LOP+SPEED To DEST,0,LOP1
  68.       Next LOP1
  69.    Next LOP
  70. End Proc